home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / pas_all.zip / TI352.ASC < prev    next >
Text File  |  1991-09-11  |  3KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   PRODUCT  :  TURBO PASCAL                           NUMBER  :  352
  10.   VERSION  :  3.01A - 3.02A
  11.        OS  :  PC-DOS
  12.      DATE  :  JULY 1, 1987                             PAGE  :  1/2
  13.     TITLE  :  ADDING DRIVE LETTERS UP TO "Z"
  14.  
  15.  
  16.  
  17.  
  18.   The Turbo Pascal, Version  3.01A,  ChDir  procedure causes an I/O
  19.   error if the  drive  designator  is  greater than Q:. This can be
  20.   troublesome for  installations whose LASTDRIVE is set to a higher
  21.   letter. The comparison that enforces  this  limit  is  at address
  22.   2CA3. It checks the drive letter to see if it is greater than A +
  23.   OFh (i.e.,Q). We modified this instruction to allow drive letters
  24.   up to Z inclusive.
  25.  
  26.   This patch is worthwhile even if you never use any  drive letters
  27.   beyond  Q,  for  the change will  affect  all  the  programs  you
  28.   compile. To apply the patch, first make a copy of  TURBO.COM, PC-
  29.   DOS, Version 3.01A (never  patch  the  original of any program!).
  30.   Load it into DEBUG with the command:
  31.  
  32.              DEBUG TURBO.COM
  33.  
  34.   At DEBUG'S "-"  prompt,  enter  the  command  U  2CA3.  This will
  35.   Unassemble the program starting with  the  instruction  at offset
  36.   2CA3. The first instruction  you  see there should be CMP AL, OF.
  37.   (If  it is not, you are patching the wrong version of Turbo - see
  38.   below). Enter the command E 2CA4 to let you enter bytes at offset
  39.   2CA4.  The  number  OF. will appear. Type 1B next to it and press
  40.   Return. Repeat this process for address 3737 (i.e. U 3737, then E
  41.   3738, changing OF to 1B as before.) Enter W to write  the patched
  42.   program  to disk and Q to quit.  You  have  successfully  patched
  43.   Turbo  Pascal.  Your  DEBUG  session  should  look something like
  44.   this:
  45.  
  46.           C:\TURBO>debug turbo.com
  47.           -u 2ca3
  48.           56F9:2CA3 3C0F      CMP      AL 0F
  49.           56F9:2CA5 73A7      JNB      2C4E
  50.  
  51.  
  52.           -e 2ca4
  53.           56F9:2CA4   0F.1b
  54.           -u 3737
  55.           56F9:3737  3C0F     CMP      AL,0F
  56.           56F9:3739  770C     JA       3747
  57.  
  58.  
  59.           -e 3738
  60.           56F9:3738  0F.1b
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.   PRODUCT  :  TURBO PASCAL                           NUMBER  :  352
  76.   VERSION  :  3.01A - 3.02A
  77.        OS  :  PC-DOS
  78.      DATE  :  JULY 1, 1987                             PAGE  :  2/2
  79.     TITLE  :  ADDING DRIVE LETTERS UP TO "Z"
  80.  
  81.  
  82.  
  83.  
  84.           -w
  85.           Writing 9AF7 bytes
  86.           -q
  87.  
  88.  
  89.   To patch the 8087  and  BCD  versions,  follow the same procedure
  90.   with   different  addresses.  For  TURBO-87.COM,  Unassemble   at
  91.   addresses 2756 and 3200, and Enter the patch at  2757  and  3201.
  92.   For TURBOBCD.COM, Unassemble  at  addresses  2BB1  and  3658, and
  93.   Enter at 2BB2 and 3659. For version 3.02A of Turbo Pascal use the
  94.   following patch locations: For TURBO.COM, Unassemble at addresses
  95.   2C74  and  372E,  and Enter the  patch  at  2C75  and  372F.  For
  96.   TURBO-87.COM, Unassemble at addresses 2727  and  31F4,  and Enter
  97.   the  patch  at  2728 and 31F5. For  TURBOBCD.COM,  Unassemble  at
  98.   addresses 2B84 and 3650, and Enter the patch at 2B85 and 3651.
  99.  
  100.   Reprinted by Permission:
  101.  
  102.                              PC Magazine
  103.                              January 13, 1987
  104.                              (c) 1987 Ziff Communications Company
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.